home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Online / Apache / cgi-bin / finger.rexx < prev    next >
OS/2 REXX Batch file  |  1997-06-07  |  1KB  |  39 lines
  1. /* testing rexx command */
  2. address command
  3.  
  4. work = "pipe:cgi-finger-" || pragma( "ID" )
  5.  
  6. parse arg user
  7.  
  8. say "Content-type: text/html"
  9. say ""
  10.  
  11. Finger = "inet:bin/finger"
  12. Img = '<img src="http://queer.slip.cs.cmu.edu/amlogosmall.gif">'
  13. num = date('D')*96 + (time('M') % 15)
  14. num2= num % 8
  15.  
  16. if exists( Finger )
  17. then do
  18.     if User =  ""
  19.     then do
  20.         say "<TITLE>Arexx Finger Gateway running on an amiga</TITLE>"
  21.         say ""
  22.         say "<ISINDEX>"
  23.         say "<p>The time is "||time('Civil')||" on "||date('Normal')||" here in Pittsburgh."
  24.         say "<p>That means that approximately <b>"||num||"</b>  people, <b>"||num2||"</b> of them children, have been killed by guns in the United States so far this year."
  25.         say '<p>This is a gateway to "finger". It is written in arexx, and running on an amiga.<br>'
  26.         say 'Type a user@host combination in your browser''s'
  27.         say "search dialog.<P>"
  28.     end
  29.     else do
  30.         say "<h1>"||Img||"Result of finger "||user||"</h1><hr>"
  31.         say "<PRE>"
  32.         Finger user
  33.         say "</pre>"
  34.     end
  35. end
  36. else do
  37.     say "Cannot find finger on this system."
  38. end
  39.